<!--#include file="p1.asp" -->
<%
m1
Function m1()
	dim fs,f,line,sql,myConn2,n
	set fs=Server.CreateObject("Scripting.FileSystemObject") 
	Set f=fs.OpenTextFile(Server.MapPath("upload\" & val("fileName")), 1)

	Set myConn2 = Easp.Db.GetConn
	'Easp.Db.Del "pd", "1=1"
	n=0
	On Error Resume Next
	do while f.AtEndOfStream = false
		line=line+1
		sql=f.ReadLine
		myConn2.Execute sql,n
		echo sql & n & "<br>"
		save_err
	loop
	On Error GoTo 0
	f.Close
	Set f=Nothing
	Set fs=Nothing
End Function

Function save_err()
	If err.Number <> 0 Then 
		Response.Write "Number = " & err.Number & "<p>" 
		Response.Write "Description = " & err.Description & "<p>" 
		Response.Write "Source = " & err.Source 
		err.Clear 
	end if
end Function
%>